﻿Imports DAO
Imports DTO
Public Class CHocSinhBus

    Public Function ThemHocSinh(ByVal _HSdto As CHocSinhDTO) As Integer
        Dim _dao As New CHocSinhDAO()
        Dim _kt As Integer = _dao.ThemHocSinh(_HSdto)
        Return _kt
    End Function

    Public Function LayDanhSachHS() As List(Of CHocSinhDTO)
        Dim _danhsachhs As New List(Of CHocSinhDTO)
        Dim _dao As New CHocSinhDAO()
        _danhsachhs = _dao.LayDanhSachHS()
        Return _danhsachhs
    End Function

    Public Function LayTatCaHS() As List(Of CHocSinhDTO)
        Dim _dao As New CHocSinhDAO()
        Return _dao.LayTatCaHS()
    End Function

    Public Function LayDSHocSinhAdapter() As DataTable
        Dim _dao As New CHocSinhDAO()
        Return _dao.LayDSHocSinhAdapter()
    End Function

    Public Function TraCuuHocSinh(ByVal _HScrt As CHocSinhCRT) As List(Of CHocSinhCRT)
        Dim _dao As New CHocSinhDAO()
        Dim _danhsachhs As New List(Of CHocSinhCRT)
        _danhsachhs = _dao.TraCuuHocSinh(_HScrt)
        Return _danhsachhs
    End Function

    Public Function LayDanhSachHSCrt() As List(Of CHocSinhCRT1)
        Dim _dao As New CHocSinhDAO()
        Dim _danhsachhscrt As New List(Of CHocSinhCRT1)
        _danhsachhscrt = _dao.LayDanhSachHSCrt()
        Return _danhsachhscrt
    End Function

    Public Function CapNhatHS(ByVal _HScrt1 As CHocSinhCRT1) As Integer
        Dim _dao As New CHocSinhDAO()
        Dim _kt As Integer = _dao.CapNhatHS(_HScrt1)
        Return _kt
    End Function

    Public Function CapNhatHSAdapter(ByVal _dtt As DataTable) As Integer
        Dim _dao As New CHocSinhDAO()
        Return _dao.CapNhatHSAdapter(_dtt)
    End Function
End Class
